#'
#' @TODO df标准化z-score
#' @title df标准化z-score
#' @param data_input data.frame，输入数据 
#' @param direction 标准化方向，按行就是"row"
#' @return df
#' @export 
#' @author *WYK*
#'
df_z_score <- \(data_input = NULL,direction = 'row'){
    if(direction == 'row'){
        n = 1
    }else {
       n = 2
    }

    name_tmp <- colnames(data_input)
    df_scaled <- t(apply(data_input, n, function(x) scale(x, center = T, scale = T)))

    colnames(df_scaled) <- name_tmp

    return(as.data.frame(df_scaled))
}
